home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / TDOS.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  296 b   |  23 lines
  1. $include "regnames.inc"
  2.  
  3. a$=chr$(0)
  4. b$="Aufruf von Power-BASIC!"+chr$(0)
  5.  
  6. reg %ax,&H0200
  7. call interrupt &HF1
  8.  
  9.  
  10. reg %ax,&H0208
  11. reg %es,STRSEG(a$)
  12. reg %di,STRPTR(a$)
  13. reg %bx,STRSEG(b$)
  14. reg %cx,STRPTR(b$)
  15. call interrupt &HF1
  16.  
  17. delay 10
  18.  
  19. reg %ax,&H0201
  20. call interrupt &HF1
  21.  
  22. end
  23.